﻿Imports Microsoft.ResourceManagement.Workflow.Activities
Imports Microsoft.IdentityManagement.WebUI.Controls
Imports System.Web.UI.WebControls

Namespace FIMUIs
    Public Class SetEntitlementsUI
        Inherits ActivitySettingsPart

        Public Overrides Function GenerateActivityOnWorkflow(workflow As SequentialWorkflow) As Activity

            If Not Me.ValidateInputs() Then
                Return Nothing
            End If
            Dim SetEntitlementsActivity As New SetEntitlements

            Return SetEntitlementsActivity

        End Function

        Public Overrides Sub LoadActivitySettings(activity As Activity)

            Dim SetEntitlementsActivity As SetEntitlements = TryCast(activity, SetEntitlements)

        End Sub

        Public Overrides Function PersistSettings() As ActivitySettingsPartData

            Dim data As New ActivitySettingsPartData()

            Return data

        End Function

        Public Overrides Sub RestoreSettings(data As ActivitySettingsPartData)

        End Sub

        Public Overrides Sub SwitchMode(mode As ActivitySettingsPartMode)

        End Sub

        Public Overrides ReadOnly Property Title As String

            Get
                Return "Set Entitlements based on User Role"
            End Get

        End Property

        Public Overrides Function ValidateInputs() As Boolean

            Return True

        End Function

    End Class


End Namespace



